home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs03.d81
/
cad.sfx
/
M
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1990-02-12
|
478b
|
17 lines
1 A=USR(0),0,1,4:A=USR(33),0:A=USR(34),0,Y,6:A=USR(34),X,255,7:A=USR(17)
2 A=USR(1):OPEN15,D0,15,"I0"
3 CLOSE15
4 PRINTCHR$(14)"[147] R --> RECTI-LINEAR LINES
5 [153]" (null) --> RADIAL LINES
6 PRINT" S --> SNAP
7 [153]" T --> TEXT
8 PRINT" W --> WAVEFORMS
9 [153]" X --> CROSSHATCH
10 PRINT" Y --> MARK SCREEN2 [217] LOCATION
11 [153]" (null) --> MARK SCREEN2 (null) LOCATION
12 PRINT" Z --> DRAW BORDER
13 [153]" (null) --> ERASE BORDER
14 GETA$:IFA$=""THEN14
15 PRINT"[147]":A=USR(0),1,7,14:A=USR(1):A=USR(16):A=USR(34),16,Y,6:A=USR(34),X,231,7
16 LOAD"CMND",D0